10 GOSUB 9000
20 PRINT"[147]**TIMES WAITS FOR NO MAN  **
30 [153]"CLOCK INSTRUCTIONS:"
40 [153]"SYS 832 : TURN ON DISPLAY
50 PRINT"SYS 994:  TURN OFF DISPLAY
60 [153]"POKE 982,N: CHANGE COLOUR
70 END
9000 CH=0:FORI=832TO1008
9010 READA:POKEI,A:CH=CH+A:NEXT
9020 IFCH-15605THENPRINT"WHOA...DATA ERROR":STOP
9030 INPUT"[147]IS IT AM OR PM";A$:INPUT"AND THE HOUR";H
9040 PRINT"ENTER THE NEXT MINUTE;":PRINT"PRESS 'RETURN' TO START CLOCK:
9050 [139]H[177]12[167]P$[178]"P":H[178]H[171]12:[137]9050
9060 [139]H[177]9[167]H[178]H[170]6
9070 [139][200](A$,1)[178]"P"[167]H[178]H[170]128
9080 C[178]56328:[151]C[170]3,H:[151]C[170]1,0
9090 [133]M:M[178]M[170][181](M[173]10)[172]6
9100 [151]C[170]2,M:[151]C,0:[158]832:[153]"IF NOT OK, PRESS ANY KEY
9110 FORI=1TO1000:IFPEEK(198)THENPOKE198,0:SYS994:GOTO9030
9120 NEXT:RETURN
9200 DATA120,173,20,3,162,89,141,224,3,142,20,3,173,21,3
9210 DATA162,3,141,225,3,142,21,3,88,96,173,11,220,170,41
9220 DATA15,24,105,48,141,67,4,138,16,4,162,16,16,2,162,1,142
9230 DATA77,4,162,32,41,16,240,2,162,49,142,66,4,173,10,220
9240 DATA170,41,15,105,48,141,70,4,138,74,74,74,74,24,105,48
9250 DATA141,69,4,173,9,220,170,41,15,105,48,141,73,4,138,74
9260 DATA74,74,74,24,105,48,141,72,4,173,8,220,105,48,141,75
9270 DATA4,169,32,141,65,4,141,76,4,141,79,4,162,15,157,24
9280 DATA4,202,208,250,169,58,141,68,4,141,71,4,169,46,141,74
9290 DATA4,169,13,141,78,4,169,1,162,13,157,65,216,202,208,250,76,0,0
9300 DATA120,173,224,3,141,20,3,173,225,3,141,21,3,88,96
9310 REM BY IAN ADAM 1983